home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / search / lsmsearc.tar / lsmsearc / lsmsearch / lsmsearch-dialog < prev    next >
Text File  |  1995-07-12  |  4KB  |  166 lines
  1. #!/usr/local/bin/perl
  2. # Written by Adam P. Jenkins <apj@twain.oit.umass.edu>
  3. # Finished June 15, 1995
  4.  
  5. #set this to the name and path of LSM file.  
  6. $LSMFILE = "/usr/local/lib/LSM.gz";
  7. #set this to name of program to unzip LSMFILE
  8. $UNZIPPER = "gunzip -c";
  9.  
  10. require 5.000;
  11.  
  12. require "dialog.pl";
  13. use Getopt::Std;
  14. use File::Basename;
  15.  
  16. $/ = "\nEnd";
  17.  
  18. sub printhelp {
  19. my $prog = basename($0);
  20.     print <<EOT
  21. $prog does a case insensitive search of the Linux Software Map.
  22. The options are:
  23.     -d: Search only the Description field.
  24.     -t: Search only the Title field.
  25.     -k: Search only the Keywords field.
  26.         -h: Get this help screen.
  27.     regexpression: A regular expression to search for.
  28. Default is to search every line.
  29. EOT
  30. }
  31.  
  32. sub mainmenu {
  33.     return &rhs_menu("LSMSEARCH Main Menu", # Title
  34.           "Choose Options to limit the search, or Search to search for
  35. a pattern",            # Message
  36.           60,        # width
  37.           3,        # Number of menu items
  38.           "Options", "Set search options.",
  39.           "Search", "Search for a pattern.",
  40.           "Quit", "Quit this program.");
  41. }
  42.  
  43. sub setoptions {
  44.     my $res = &rhs_checklist("LSMSEARCH Options", # Title
  45.                  "Choose options to delimit the search.
  46. If no options are checked, all fields will be searched.
  47. Use SPACE to toggle an option on/off.",
  48.                  60,        # width
  49.                  3,        # number of items
  50.                  "Description", "Search the description field.",
  51.                  $options{'description'},
  52.                  "Keywords", "Search the keywords field.",
  53.                  $options{'keywords'},
  54.                  "Title", "Search the title field.",
  55.                  $options{'title'});
  56.  
  57.     $options{'description'} = grep(/Description/, @dialog_result) ? 1 : 0;
  58.     $options{'keywords'} = grep(/Keywords/, @dialog_result) ? 1 : 0;
  59.     $options{'title'} = grep(/Title/, @dialog_result) ? 1 : 0;
  60.     return $res;
  61. } 
  62.  
  63. sub getpattern {
  64.     my $res = &rhs_inputbox("LSMSEARCH",    # Title
  65.                 "Type in a regular expression to search for.",
  66.                 60,    # width
  67.                 $Pattern); # default pattern
  68.     $Pattern = $dialog_result;
  69.     return $res;
  70. }
  71.  
  72. sub dosearch {
  73.     my $BASENAME = basename($0);
  74.     my $TMPFILE = "/tmp/$$.$BASENAME.tmp";
  75.     open(TMPFILE, ">$TMPFILE") or die "Can't open temp file.\n";
  76.     open(LSMFILE, "$UNZIPPER $LSMFILE |") or die "Can't open $LSMFILE\n";
  77.     select(TMPFILE);
  78.  
  79. # if no options were given, do it the fastest way
  80.     if (!$options{'title'} && !$options{'description'}
  81.     && !$options{'keywords'})
  82.     {
  83.         # This actually reads in a whole record at a time, up to a line
  84.         # beginning with /^End/.  Because I set $/ to "\nEnd".
  85.         while (<LSMFILE>) {
  86.         if (/$Pattern/i) {
  87.             print;    # prints record to the TMPFILE 
  88.         } 
  89.         }
  90.     } else {        # else process options.
  91.         while (<LSMFILE>) {
  92.         $found = 0;
  93.         if ($options{'title'}) {
  94.             if (/\nTitle\:.*?\n(?=[\w-]+\:)/s) {
  95.             $tmp = $&;
  96.             if ($tmp =~ /$Pattern/i) {
  97.                 $found = 1;
  98.             }
  99.             }
  100.         }
  101.         if ($options{'description'}) {
  102.             if (/\nDescription\:.*?\n(?=[\w-]+\:)/s) {
  103.             $tmp = $&;
  104.             if ($tmp =~ /$Pattern/i) {
  105.                 $found = 1;
  106.             }
  107.             }
  108.         }
  109.         if ($options{'keywords'}) {
  110.             if (/\nKeywords\:.*?\n(?=[\w-]+\:)/s) {
  111.             $tmp = $&;
  112.             if ($tmp =~ /$Pattern/i) {
  113.                 $found = 1;
  114.             }
  115.             }
  116.         }
  117.         if ($found) {
  118.             print;
  119.         }
  120.         }            # while
  121.     }            # else
  122.     
  123.     close LSMFILE;          
  124.     close TMPFILE;
  125.  
  126.     &rhs_textbox("Records containing $Pattern", $TMPFILE, 80, 24);
  127.     unlink $TMPFILE;
  128. }
  129.  
  130. sub mainloop {
  131.     &mainmenu;
  132.     while ($dialog_result !~ /^Quit/) {
  133.     if ($dialog_result =~ /^Options/)
  134.         { &setoptions; }
  135.     elsif ($dialog_result =~ /^Search/) {
  136.         if (&getpattern) {
  137.         if ($Pattern) { &dosearch; }
  138.         }
  139.     }              
  140.     &mainmenu;
  141.     }
  142.  
  143.     &rhs_clear;
  144. }
  145.     
  146.  
  147. # Main program
  148. getopts('tdkh') or $opt_h = 1;
  149.  
  150. if ($opt_h) {            # help option
  151.     &printhelp;
  152.     exit 1;
  153. }
  154.  
  155. $options{'title'}       = $opt_t ? $opt_t : 0;
  156. $options{'description'} = $opt_d ? $opt_d : 0;
  157. $options{'keywords'}    = $opt_k ? $opt_k : 0;
  158.  
  159. $Pattern = '';
  160. if ($#ARGV >= 0) {        # just do it once 
  161.     $Pattern = shift;
  162.     &dosearch;
  163. } else {            # run program interactively
  164.     &mainloop;
  165. }
  166.